(shell-command): Really use output-buffer in synchronous

case, when it is a buffer.

diff --git a/lisp/simple.el b/lisp/simple.el
index 8199892f3e0c0496a2a54bcdd93d64bd5811bbae..915e1172155cc2b22765609e61b432e50754697d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -828,7 +828,7 @@ In either case, the output is inserted after point (leaving mark after it)."
                  (require 'shell) (shell-mode)
                  (set-process-sentinel proc 'shell-command-sentinel)
                  ))
-           (shell-command-on-region (point) (point) command nil)
+           (shell-command-on-region (point) (point) command output-buffer)
            ))))))
 
 ;; We have a sentinel to prevent insertion of a termination message